Dim $pos0,$Flag,$i

$Flag = 0
For $i = 0 to 600

	$pos0 = MouseGetPos()

	if($Flag = 0 ) Then
		$Flag = 1
		MouseMove($pos0[0],$pos0[1]-1)
	Else
		$Flag = 0
		MouseMove($pos0[0],$pos0[1]+1)
	EndIf

	Sleep(1000)
Next